package org.xteam.camllight.io;

import org.xteam.camllight.Atom;
import org.xteam.camllight.Primitive;
import org.xteam.camllight.Value;

public class OutputCharPrimitive implements Primitive {

	@Override
	public Object exec(Object... args) {
		Channel channel = (Channel) args[0];
		channel.putch(Value.longVal((Integer)args[1]));
		return Atom.get(0);
	}

}
